home *** CD-ROM | disk | FTP | other *** search
- 5 ifa=0thena=1:load"demo-sprites",8,1
- 10 rem alle acht sprites auf den screen
- 20 v=53248:rem basisadresse vic
- 30 x=30:y=100:z=0:print"[147]"
- 40 for i=0 to 7
- 50 : pokev+z,x:rem spritepositionen
- 60 : pokev+z+1,y:rem setzen
- 70 : x=x+30:z=z+2
- 80 : pokev+39+i,i:rem farben zuweisen
- 90 : poke2040+i,255:rem block 255
- 100 next
- 110 pokev+21,255:rem alle sprites an
- 120 fori=0to10:print:next:list
-